home *** CD-ROM | disk | FTP | other *** search
/ Celestin Apprentice 4 / Apprentice-Release4.iso / Demos / AppMaker 2.0b3 / Demo AppMaker 1.5 / Demo AppMaker™ / Demo AppMaker™.rsrc / TmPT_314_zSubWindow < prev    next >
Encoding:
Text File  |  1992-04-08  |  1.4 KB  |  62 lines
  1. { %filename% -- subwindow methods }
  2. { Created %date% %time% by AppMaker }
  3.  
  4. {    We recommend that you not modify this module and instead modify        }
  5. {    its subclass, %WindName%.  The 'z' prefix on this module marks%        %}
  6. {    a module which is likely to be regenerated by AppMaker after you    }
  7. {    make changes to the user interface.  The modules without the 'z'    }
  8. {    prefix will not be regenerated by AppMaker unless you delete them.    }
  9. {    Using a separate subclass to override the AppMaker-generated code    }
  10. {    lets you regenerate code without losing your hand-coded changes.    } 
  11.  
  12. Unit %unitname%;
  13. Interface
  14.  
  15. Uses
  16.     TCL,
  17.     AMCL,
  18.     %AppName%Intf;
  19.     
  20. {----------}
  21. Implementation
  22.  
  23. {----------}
  24. Procedure Z%WindName%.IZ%WindName%    (aSupervisor:    CDirector);
  25. var
  26.     enclosure:            CView;
  27.     supervisor:            CBureaucrat;
  28.     aSizeBox:            CSizeBox;
  29. Begin
  30.     inherited IDirector (aSupervisor);
  31.  
  32.     New (itsWindow);
  33.     %if procID = 3200%
  34.         itsWindow.IWindow (%WindName%ID, true, gDesktop, self);    {floating}
  35.     %else%
  36.         itsWindow.IWindow (%WindName%ID, false, gDesktop, self);
  37.     %endif%
  38.  
  39.     enclosure := itsWindow;
  40.     supervisor := self;
  41.     %for each item gen create%
  42.  
  43.     %if has growBox%
  44.         New (aSizeBox);
  45.         aSizeBox.ISizeBox (enclosure, supervisor);
  46.     %endif%
  47.     
  48. End; {I%WindName%}
  49.  
  50. %for each item gen zAuxiliaryMethod%
  51. {----------}
  52. Procedure Z%WindName%.DoCommand (theCommand: longint);
  53. Begin
  54.     case theCommand of
  55.         0:    ;
  56.         otherwise
  57.             inherited DoCommand (theCommand);
  58.     end; {case}
  59. End; {DoCommand}
  60.  
  61. End. {%unitname%}
  62.